home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_1027_TTextGridView < prev    next >
Encoding:
Text File  |  1992-04-08  |  730 b   |  36 lines
  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.  
  7.     TYPE
  8.         %classname% = OBJECT (%superclass%) 
  9.             OVERRIDE METHOD GetText    (aCell:     GridCell;
  10.                                  VAR aString:    Str255);
  11.             (*${QINSPECTOR*)
  12.             OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
  13.             (*$}*)
  14.         END(*%classname%*);
  15. %case gDeadStripSuppression%
  16.     %StripSuppression%
  17. %case classMethods%
  18.     (*----------*)
  19.     METHOD %classname%.GetText%    %(aCell:     GridCell;
  20.                              VAR aString:    Str255);
  21.     BEGIN
  22.         (*. replace with something useful .*)
  23.     END GetText;
  24.     
  25.     %ClassMethods%
  26. %case defImports%
  27.     FROM Types IMPORT
  28.         Rect;
  29.     FROM UGridView IMPORT
  30.         TTextGridView, GridCell;
  31. %case modImports%
  32.     FROM Types IMPORT
  33.         Rect, Str255;
  34.     FROM UGridView IMPORT
  35.         GridCell;
  36.